home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1999 March
/
EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso
/
earkit
/
mail
/
thor
/
thor25_arexx.lha
/
Examples
/
ShowPicture_ex.thor
< prev
next >
Wrap
Text File
|
1995-09-06
|
358b
|
27 lines
/*
*
* ShowPicture_ex.thor - example program for the SHOWPICTURE function
*
*/
options results
thorport = address()
REQUESTFILE title '"Select picture to view:"' id '"s:"' fullpath
if(rc ~= 0) then
do
if(rc = 30) then say THOR.LASTERROR
exit
end
filename = result
SHOWPICTURE file '"'filename'"'
if(rc = 30) then
do
say THOR.LASTERROR
end
exit